home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / HELPHINT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  1.9 KB  |  63 lines
  1. 10  'HELPHINT - 17 AUG 92 rev. 23 APR 94 rev. 03 OCT 96
  2. 20  IF EX$=""THEN EX$="\bas\menu\hcal"
  3. 30  COLOR 15,1,1
  4. 40  CLS
  5. 50  TB=7    'tab for text
  6. 60  PRINT
  7. 70  PRINT TAB(TB);
  8. 80  PRINT "Most of these programs ask you to input data. If you are asked to"
  9. 90  PRINT TAB(TB);
  10. 100  PRINT "enter some data that you don't know, or that you want the computer"
  11. 110  PRINT TAB(TB);
  12. 120  PRINT "to tell YOU, just press the <ENTER> key to by-pass the question."
  13. 130  PRINT
  14. 140  PRINT TAB(TB);
  15. 150  PRINT "Some of the data asked for is essential. In this case the computer"
  16. 160  PRINT TAB(TB);
  17. 170  PRINT "will keep hounding you for it, no matter how many times you try to"
  18. 180  PRINT TAB(TB);
  19. 190  PRINT "dodge the question. Don't worry if you by-pass a question you feel"
  20. 200  PRINT TAB(TB);
  21. 210  PRINT "you should have answered. The computer will ask it again if it is"
  22. 220  PRINT TAB(TB);
  23. 230  PRINT "something the computer really needs to know."
  24. 240  PRINT
  25. 250  PRINT TAB(TB);
  26. 260  PRINT "If a prompt begins with the word ENTER then type in the data and"
  27. 270  PRINT TAB(TB);
  28. 280  PRINT "press the <ENTER> key."
  29. 290  PRINT
  30. 300  PRINT TAB(TB);
  31. 310  PRINT "If you are prompted to PRESS a key then just press the indicated"
  32. 320  PRINT TAB(TB);
  33. 330  PRINT "key. There is no need to press the <ENTER> key as well."
  34. 340  PRINT
  35. 350  PRINT TAB(TB);
  36. 360  PRINT "In the event that something goes wrong press the CTRL key and hold"
  37. 370  PRINT TAB(TB);
  38. 380  PRINT "it down while you press the PAUSE key. This will halt the program"
  39. 390  PRINT TAB(TB);
  40. 400  PRINT "and a `break' message will appear on the screen. Then press the F2"
  41. 410  PRINT TAB(TB);
  42. 420  PRINT "key to re-start the program from the beginning, or the F10 key to"
  43. 430  PRINT TAB(TB);
  44. 440  PRINT "return to DOS. You can try this right now if you like, just to see"
  45. 450  PRINT TAB(TB);
  46. 460  PRINT "how it works...................";
  47. 470  GOSUB 500
  48. 480  CLS:RUN EX$
  49. 490  '
  50. 500  'HARDCOPY
  51. 510  GOSUB 620:LOCATE 25,2:COLOR 14,6
  52. 520  PRINT " Press 1 to print screen, 2 to print screen & ";
  53. 530  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  54. 540  Z$=INKEY$:IF Z$="3"THEN GOSUB 620:RETURN
  55. 550  IF Z$="1"OR Z$="2"THEN GOSUB 620:GOTO 570
  56. 560  GOTO 540
  57. 570  FOR QX=1 TO 24:FOR QY=1 TO 80
  58. 580  LPRINT CHR$(SCREEN(QX,QY));
  59. 590  NEXT QY:NEXT QX
  60. 600  IF Z$="2"THEN LPRINT CHR$(12)
  61. 610  GOTO 510
  62. 620  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  63.